home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / alpha.arc / CHRMDM75.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-01  |  2.7 KB  |  53 lines
  1. 10  REM Basic functions for phase and frequency response
  2. 20  DEF FNPHLP1(W,WC,D) = -ATN(W/WC)
  3. 30  DEF FNPHHP1(W,WC,D) =  ATN(WC/W)
  4. 40  DEF FNPHLP2(W,WC,D) = -ATN( D*W /(WC*(1-(W/WC)^2 ) ) ) + PI*(W>WC)
  5. 50  DEF FNPHHP2(W,WC,D) =  ATN( D*WC/(W *(1-(WC/W)^2 ) ) ) - PI*(W<WC)
  6. 60  DEF FNAMLP1(W,WC,D) = 1 / SQR(1+(W/WC)^2)
  7. 70  DEF FNAMHP1(W,WC,D) = 1 / SQR(1+(WC/W)^2)
  8. 80  DEF FNAMLP2(W,WC,D) = 1 / SQR(1+(W/WC)^4+(D*D-2)*(W/WC)^2)
  9. 90  DEF FNAMHP2(W,WC,D) = 1 / SQR(1+(WC/W)^4+(D*D-2)*(WC/W)^2)
  10. 100  DEF FNDBV(AMP)      = 20*LOG(AMP)/LOG(10)
  11. 110  DEF FNPHD(RAD) = 180*RAD/PI
  12. 120  PI = ATN(SQR(3))*3
  13. 130  DIM FREQT(31),AMPT(31)
  14. 140  REM driver characteristics
  15. 150  TITLE$ = "Morel MDM75 AR-3"
  16. 160  REM subscript of data frequencies with valid data
  17. 170  FIRST = 13 : LAST = 29
  18. 180  FREQT( 1)=   20:  AMPT( 1)=  -20
  19. 190  FREQT( 2)=   25:  AMPT( 2)=  -18
  20. 200  FREQT( 3)=   32:  AMPT( 3)=  -16
  21. 210  FREQT( 4)=   40:  AMPT( 4)=  -12
  22. 220  FREQT( 5)=   50:  AMPT( 5)=  -10
  23. 230  FREQT( 6)=   64:  AMPT( 6)=  -7
  24. 240  FREQT( 7)=   80:  AMPT( 7)=  -4
  25. 250  FREQT( 8)=  100:  AMPT( 8)=  -1
  26. 260  FREQT( 9)=  125:  AMPT( 9)=  -1
  27. 270  FREQT(10)=  160:  AMPT(10)=  -24
  28. 280  FREQT(11)=  200:  AMPT(11)=  -20
  29. 290  FREQT(12)=  250:  AMPT(12)=  -18
  30. 300  FREQT(13)=  320:  AMPT(13)=  -9
  31. 310  FREQT(14)=  400:  AMPT(14)=  -6
  32. 320  FREQT(15)=  500:  AMPT(15)=  -3
  33. 330  FREQT(16)=  640:  AMPT(16)=  -0
  34. 340  FREQT(17)=  800:  AMPT(17)=  +3
  35. 350  FREQT(18)= 1000:  AMPT(18)=  +2
  36. 360  FREQT(19)= 1250:  AMPT(19)=  +0
  37. 370  FREQT(20)= 1600:  AMPT(20)=  +0
  38. 380  FREQT(21)= 2000:  AMPT(21)=  -1
  39. 390  FREQT(22)= 2500:  AMPT(22)=  -1
  40. 400  FREQT(23)= 3200:  AMPT(23)=  -2
  41. 410  FREQT(24)= 4000:  AMPT(24)=  -2
  42. 420  FREQT(25)= 5000:  AMPT(25)=  -2
  43. 430  FREQT(26)= 6400:  AMPT(26)=  -5
  44. 440  FREQT(27)= 8000:  AMPT(27)=  -6
  45. 450  FREQT(28)=10000:  AMPT(28)=  -9
  46. 460  FREQT(29)=12500:  AMPT(29)=  -12
  47. 470  FREQT(30)=16000:  AMPT(30)=  -18
  48. 480  FREQT(31)=20000:  AMPT(31)=  -22
  49. 490  REM driver characteristics
  50. 500  FL =  600  :QL = 1.1
  51. 510  FH = 6000 :QH = 0.6
  52. 520  DBOFF = -0
  53.